From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 May 1993 16:21:12 +0000 (+0000)
Subject: Pass x-command-line-resources to x-open-connection.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95979
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=f6f6d98c0fd7393dd99826eec5d63fdb12f4f897;p=emacs.git

Pass x-command-line-resources to x-open-connection.
(x-command-line-resources): New variable.
(x-handle-rn-switch): New function.
(command-switch-alist): Add -rn.
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index c19bf41259d..84a09026618 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -76,6 +76,8 @@
 (require 'select)
 (require 'menu-bar)
 
+(defvar x-command-line-resources nil)
+
 (setq command-switch-alist
       (append '(("-bw" .	x-handle-numeric-switch)
 		("-d" .		x-handle-display)
@@ -98,6 +100,7 @@
 		("-itype" .	x-handle-switch)
 		("-i" 	.	x-handle-switch)
 		("-iconic" .	x-handle-switch)
+		("-rn" .        x-handle-rn-switch)
 		("-cr" .	x-handle-switch)
 		("-vb" .	x-handle-switch)
 		("-hb" .	x-handle-switch)
@@ -152,6 +155,11 @@
 	      x-invocation-args
 	      (cdr x-invocation-args)))))
 
+;; Handle the -rn option.
+(defun x-handle-rn-switch (switch)
+  (setq x-command-line-resources (car x-invocation-args))
+  (setq x-invocation-args (cdr x-invocation-args)))
+
 ;; Handle the geometry option
 (defun x-handle-geometry (switch)
   (setq initial-frame-alist
@@ -508,7 +516,8 @@ This returns ARGS with the arguments that have been processed removed."
 
 (setq command-line-args (x-handle-args command-line-args))
 (x-open-connection (or x-display-name
-		       (setq x-display-name (getenv "DISPLAY"))))
+		       (setq x-display-name (getenv "DISPLAY")))
+		   x-command-line-resources)
 
 (setq frame-creation-function 'x-create-frame-with-faces)